﻿
Public Class BaseClass_Page
    Inherits System.Web.UI.Page 
    Private _cssClass As String
    Public Property CssClass() As String
        Get
            Return _cssClass
        End Get
        Set(ByVal value As String)
            _cssClass = value
        End Set
    End Property
    Protected Sub BaseClass_Load() Handles Me.Load 
    End Sub
    Sub JS_RefreshTheme()
        JS_Exec("RefreshTheme();")
    End Sub
    Sub Js_ShowDialog(TagId As String)
        JS_Exec("showDialog('" & TagId & "');")
    End Sub
    Sub Js_closeDialog(TagId As String)
        JS_Exec("closeDialog('" & TagId & "');")
    End Sub
    Sub JS_Exec(Jscode As String)
        ScriptManager.RegisterClientScriptBlock(Me, GetType(Page), UniqueID, Jscode, True)
    End Sub
End Class